home *** CD-ROM | disk | FTP | other *** search
/ FM Towns: Free Software Collection 4 / FM Towns Free Software Collection 4 - Disc 1.iso / fb386 / pickup / staff.bas < prev    next >
BASIC Source File  |  1991-10-18  |  23KB  |  503 lines
  1. 10 '
  2. 20 '　ＹＯＵ　ＡＲＥ　ＭＩＮＥ　／　by Kazuya Shimada
  3. 30 '
  4. 40 CLEAR ,,,30000:PLAY OFF:BGM 1:LOAD@"Q:\FJ\FM\FM_1.FMB":LOAD@"PDRUMS.PMB"
  5. 50 DIM T%(4,9),V%(23),D%(47)
  6. 60 '----------------------------------------------------------------
  7. 70 TNO%=1 : TNAME$="MAIN 1"
  8. 80 FOR Y%=0 TO 4 : FOR X%=0 TO 9:READ T%(Y%,X%):NEXT:NEXT:GOSUB *TNCONV
  9. 90 '    AF  OM  WF  SY   SP   PMD AMD PMS
  10. 100 DATA  6, 15,  0,  0,     0,  0,  0,  0,  0,  0
  11. 110 '    AR  DR  SR  RR  SL  TL  KS  ML  DT AMS
  12. 120 DATA 31,  3,  3,  8,  2, 31,  1,  3,  3,  0
  13. 130 DATA 31,  0,  0,  8,  0, 10,  1,  3,  0,  0
  14. 140 DATA 31,  0,  0,  8,  0, 10,  1,  2,  0,  0
  15. 150 DATA 31,  0,  0,  8,  0, 10,  1,  1,  0,  0
  16. 160 '----------------------------------------------------------------
  17. 170 TNO%=2 : TNAME$="BASS"
  18. 180 FOR Y%=0 TO 4 : FOR X%=0 TO 9:READ T%(Y%,X%):NEXT:NEXT:GOSUB *TNCONV
  19. 190 '    AF  OM  WF  SY   SP   PMD AMD PMS
  20. 200 DATA 16, 15,  0,  0,     0,  0,  0,  0,  0,  0
  21. 210 '    AR  DR  SR  RR  SL  TL  KS  ML  DT AMS
  22. 220 DATA 31, 18,  0,  6,  2, 48,  0,  8,  0,  0
  23. 230 DATA 31, 14,  4,  6,  2, 25,  0,  0,  7,  0 
  24. 240 DATA 31, 10,  4,  6,  2, 19,  1,  0,  3,  0
  25. 250 DATA 31,  8,  3,  6,  2,  5,  1,  0,  0,  0
  26. 260 '----------------------------------------------------------------
  27. 270 '
  28. 280 TNO%=3 : TNAME$="SUB"
  29. 290 FOR Y%=0 TO 4 : FOR X%=0 TO 9:READ T%(Y%,X%):NEXT:NEXT:GOSUB *TNCONV
  30. 300 '    AF  OM  WF  SY   SP   PMD AMD PMS
  31. 310 DATA 61, 15,  0,  0,     0,  0,  0,  0,  0,  0
  32. 320 '    AR  DR  SR  RR  SL  TL  KS  ML  DT AMS
  33. 330 DATA 31,  0,  0,  7,  0, 28,  1,  4,  0,  0
  34. 340 DATA 31,  0,  0,  7,  0, 17,  1,  2,  0,  0 
  35. 350 DATA 31,  0,  0,  7,  0, 17,  1,  2,  0,  0
  36. 360 DATA 31,  0,  0,  7,  0, 17,  1,  2,  0,  0
  37. 370 '----------------------------------------------------------------
  38. 380 TNO%=4 : TNAME$="MAIN 2"
  39. 390 FOR Y%=0 TO 4 : FOR X%=0 TO 9:READ T%(Y%,X%):NEXT:NEXT:GOSUB *TNCONV
  40. 400 '    AF  OM  WF  SY   SP   PMD AMD PMS
  41. 410 DATA 60, 15,  0,  0,     0,  0,  0,  0,  0,  0
  42. 420 '    AR  DR  SR  RR  SL  TL  KS  ML  DT AMS
  43. 430 DATA 24, 15,  0,  8,  2, 21,  0,  1,  1,  0
  44. 440 DATA 24, 15,  0,  8,  2, 21,  0,  0,  0,  0 
  45. 450 DATA 31,  3,  3,  9,  0, 10,  0,  1,  1,  0
  46. 460 DATA 31,  4,  5,  9,  0, 10,  0,  0,  0,  0
  47. 470 '----------------------------------------------------------------
  48. 480 GOTO 610
  49. 490 *TNCONV
  50. 500 FOR I%=0 TO 3:J%=I%+1:D%(8+I%)=(T%(J%,8)AND 7)*16+(T%(J%,7)AND 15)
  51. 510 D%(12+I%)=(T%(J%,5) AND 127)
  52. 520 D%(16+I%)=(T%(J%,6) AND   3)*64+(T%(J%,0) AND 31)
  53. 530 D%(20+I%)= T%(J%,1) AND  31:D%(24+I%)=T%(J%,2) AND 31
  54. 540 D%(28+I%)=(T%(J%,4) AND  15)*16+(T%(J%,3) AND 15):NEXT
  55. 550 D%(32)=T%(0,0):D%(33)=&HC0+((T%(0,7) AND 3)*16)+((T%(0,8) AND 7))
  56. 560 A$=LEFT$(TNAME$+"        ",8)
  57. 570 FOR I%=0 TO 7:D%(I%)=ASC(MID$(A$,I%+1,1)):NEXT
  58. 580 FOR I%=0 TO 47 STEP 2:L&=D%(I%+1)*256+D%(I%)
  59. 590 IF L&<&H8000 THEN V%(I% \ 2)=CINT(L&) ELSE V%(I% \ 2)=CINT(L&-&H10000)
  60. 600 NEXT:VOICE TNO%,V%:RETURN
  61. 610 '----------------------------------------------------------------
  62. 611 GOSUB *TOP
  63. 612 ON INTERVAL GOSUB *PRINT_STAFF
  64. 613 INTERVAL 8 : INTERVAL ON
  65. 620 FOR I=0 TO 13:PART I,I:NEXT:PLAY OFF:BGM 1
  66. 630 T$="T175Q8L8%CU0"
  67. 640 PLAY T$,T$,T$,T$,T$,T$,T$,T$,T$,T$,T$,T$,T$,T$
  68. 650 A0$=""
  69. 660 B0$=""
  70. 670 C0$=""
  71. 680 D0$=""
  72. 690 E0$=""
  73. 700 F0$=""
  74. 710 G0$="@3V15L4O4C8C8C4"
  75. 720 H0$="@2V15L4O4R4E4V13"
  76. 730 I0$="@4V5L8O5"
  77. 740 A1$="@1%CV5L1O4E- D"
  78. 750 B1$="@1U40%CV5L1O4E- D"
  79. 760 C1$="@1%RV5L1O3G B-"
  80. 770 D1$="@1%LV5L1O3B- F"
  81. 780 E1$="@1U80%CV3L16O4(GE-B-E->E-<E-B-E-) (FDB-D>D<DB-D)"
  82. 790 E1B$="O5(GE-B-E->E-<E-B-E-) (FDB-D>D<DB-D)"
  83. 800 F1$="@2V8L8O3E-E-E-E-E-E-E-E- <B-B-B-B-B-B-B-B-"
  84. 810 G1$="L4(CRC8C8R)"
  85. 820 H1$="L4(RERE)"
  86. 830 I1$="L8(!15GGGG!15G!15GGG)"
  87. 840 M1$="@14V6L4O4R%LE-RR R%RDRR"
  88. 850 A2$="O4D- C2<B-8A-4."
  89. 860 C2$="O3F A-"
  90. 870 D2$="O3A- E-"
  91. 880 E2$="O4(FD-A-D->D-<D-A-D-) (E-CA-C>C<CA-C)"
  92. 890 E2B$="O5(FD-A-D->D-<D-A-D-) (E-CA-C>C<CA-C)"
  93. 900 F2$="O3D-D-D-D-D-D-D-D- <A-A-A-A-A-A-A-A-"
  94. 910 M2$="O4R%CD-RR R8%CC8%LC8%RC8R2"
  95. 920 A3$="O4D-"
  96. 930 C3$="O3F"
  97. 940 D3$="O3A-"
  98. 950 E3$="O5(FD-A-D->D-<D-A-D-)"
  99. 960 F3$="O3D-D-D-D-D-D-D-D-"
  100. 970 G3$="CRC8C8R CR8C8RR"
  101. 980 H3$="RERE R2L8EEEE"
  102. 990 I3$="!15GGGG!15GGGG R4!15G4L8GGGG"
  103. 1000 M3$="O4R%CD-RR R1"
  104. 1010 '
  105. 1020 A4$="@4V8L8O5R4A-B->D-C4. D-C4<E-4E-A-G-&"
  106. 1030 B4$="@4U80V6L8O5R4A-&A-B->D-C4. D-C4<E-4E-A-"
  107. 1040 C4$="@1U40%CV3L1O3A- >C"
  108. 1050 D4$="@1U40%CV3L1O4C E-"
  109. 1060 E4$="@1U40%CV3L1O4E- <G-"
  110. 1070 F4$="O2A-A-A-A-A-A-A-A- G-G-G-G-G-G-G-G-"
  111. 1080 G4$="CRC8C8R CRCR"
  112. 1090 H4$="RERE RER8E8E8E8"
  113. 1100 J4$="@1U30%LV1L1O3A- >C"
  114. 1110 K4$="@1U30%CV1L1O4C E-"
  115. 1120 L4$="@1U30%RV1L1O4E- <G-"
  116. 1130 M4$="@6U0%CV10L1O4C R"
  117. 1140 N4$="@1U98%CV6L4O4E-2C2 >C2<E-2"
  118. 1150 A5$="O5G-G-G-A-G-F4E-& E-2.R4"
  119. 1160 B5$="O5G-&G-G-G-A-G-F4E-& E-2.R"
  120. 1170 C5$="O3G- A-"
  121. 1180 D5$="O3A- >C"
  122. 1190 E5$="O4D- <E-"
  123. 1200 F5$="O3D-D-D-D-D-D-D-D- <A-A-A-A-A-A-A-A-"
  124. 1210 J5$="O3G- A-"
  125. 1220 K5$="O3A- >C"
  126. 1230 L5$="O4D- E-"
  127. 1240 N5$="O4G-2..E-8& E-1"
  128. 1250 A6$="O5R4FE-FG4. A-GA-B-4A-GA-"
  129. 1260 B6$="O5R4F&FE-FG4. A-GA-B-4A-G"
  130. 1270 C6$="O4D- <G"
  131. 1280 D6$="O3F B-"
  132. 1290 E6$="O3A- >D"
  133. 1300 F6$="O3D-D-D-D-D-D-D-D- DDDDDDDD"
  134. 1310 J6$="O4D- <G"
  135. 1320 K6$="O3F B-"
  136. 1330 L6$="O3A- >D"
  137. 1340 N6$="O4F2A-2 G2B-2"
  138. 1350 A7$="O6C4<B-B-4.>CC E-D-C<B-4&B-R4"
  139. 1360 B7$="O6C&C4<B-B-4.>CC E-D-C<B-4&B-R"
  140. 1370 C7$="O4C E-"
  141. 1380 D7$="O4E- <G"
  142. 1390 E7$="O3G >D-"
  143. 1400 F7$="O3E-E-E-E-E-E-E-E- E-E-B-E-E-B-E-B-"
  144. 1410 J7$="O4C E-"
  145. 1420 K7$="O4E- <G"
  146. 1430 L7$="O3G B-"
  147. 1440 M7$="@9U0%CV13L8R1 O4R2RE-E-R"
  148. 1450 M7B$="@9U0%CV13L8R1 O4R2RE-E-E-"
  149. 1460 N7$="O5C1 L8E-D-C<B-&B-2L4"
  150. 1470 A8$="O6C4<B-B-4.>CC E-D-C<B-&B-4.R"
  151. 1480 B8$="O6C&C4<B-B-4.>CC E-D-C<B-&B-4."
  152. 1490 M8$="@9U0%CV13L8R1 O4R2E-E-E-E-"
  153. 1500 '
  154. 1510 A9$="O5R4FFG4FF A-4B-A-4E-E-4"
  155. 1520 B9$="O5R4F&FFG4FF A-4B-A-4E-E-"
  156. 1530 C9$="O4D- E-"
  157. 1540 D9$="O4F <A-"
  158. 1550 E9$="O3A- B-"
  159. 1560 F9$="O3D-D-D-D-D-D-D-D- <A-A-A-A-A-A-A-A-"
  160. 1570 J9$="O4D- E-"
  161. 1580 K9$="O4F <A-"
  162. 1590 L9$="O3A- B-"
  163. 1600 A10$="O5RGGGB-4G4 >C4D-C&C4R4"
  164. 1610 B10$="O5RG&GGGB-4G4 >C4D-C&C4R"
  165. 1620 C10$="O4E- <A-"
  166. 1630 D10$="O3G >C"
  167. 1640 E10$="O3B- >E-"
  168. 1650 F10$="O3E-E-E-E-E-E-E-E- <A-A-A-A-A-A-A-A-"
  169. 1660 J10$="O4E- <A-"
  170. 1670 K10$="O3B- >C"
  171. 1680 L10$="O4D- E-"
  172. 1690 A11$="O5R4FFG4FG A-4GA-4RB-4"
  173. 1700 B11$="O5R4F&FFG4FG A-4GA-4RB-"
  174. 1710 C11$="O4D- E-"
  175. 1720 D11$="O4F <A-"
  176. 1730 E11$="O3A- B-"
  177. 1740 F11$="O3D-D-D-D-D-D-D-D- E-E-E-E-E-E-E-E-"
  178. 1750 J11$="O4D- E-"
  179. 1760 K11$="O4F <A-"
  180. 1770 L11$="O3A- B-"
  181. 1780 A12$="O6C2.<E-4 >C4C4CCC4"
  182. 1790 B12$="O6C&C2.<E-4 >C4C4CCC"
  183. 1800 C12$="O3A- A-"
  184. 1810 D12$="O4C C"
  185. 1820 E12$="O4E- E-"
  186. 1830 F12$="O3A-A-A-A-A-A-A-A- A-A-A-A-A-A-A-A-"
  187. 1840 J12$="O3A- A-"
  188. 1850 K12$="O4C C"
  189. 1860 L12$="O4E- E-"
  190. 1870 A13$="O5B-1& B-2.R4"
  191. 1880 B13$="O5B-&B-1& B-2.R"
  192. 1890 C13$="O4E-& E-"
  193. 1900 D13$="O3G& G"
  194. 1910 E13$="O3B-& B-"
  195. 1920 F13$="O3E-E-E-E-E-E-E-E- E-B-E-E-E-B-E-B-"
  196. 1930 J13$="O4E-& E-"
  197. 1940 K13$="O3B-& B-"
  198. 1950 L13$="O4D-& D-"
  199. 1960 '
  200. 1970 A14$="O6C4C4D-4E-4 E-4.D-4.C4"
  201. 1980 B14$="O6C&C4C4D-4E-4 E-4.D-4.C"
  202. 1990 C14$="Q5V2L8O4A-A-A-A-A-A-A-A- CCCCCCCC"
  203. 2000 D14$="Q5V2L8O4CCCCCCCC E-E-E-E-E-E-E-E-"
  204. 2010 E14$="Q5V2L8O4E-E-E-E-E-E-E-E- GGGGGGGG"
  205. 2020 F14$="O3A-A-A-A-A-A-A-A- GGGGGGGG"
  206. 2030 J14$="V2O3A- >C"
  207. 2040 K14$="V2O4C E-"
  208. 2050 L14$="V2O4E- <G"
  209. 2060 A15$="O5B-4B-4>C4D-4 D-4.C16<B-16>C4<B-4"
  210. 2070 B15$="O5B-&B-4B-4>C4D-4 D-4.C16<B-16>C4<B-"
  211. 2080 C15$="O4FFFFFFFF A-A-A-A-A-A-A-A-"
  212. 2090 D15$="O3B-B-B-B-B-B-B-B- >D-D-D-D-CCCC"
  213. 2100 E15$="O4CCCCCCCC E-E-E-E-E-E-E-E-"
  214. 2110 F15$="O3FFFFFFFF E-E-E-E-E-E-E-E-"
  215. 2120 J15$="O4F <A-"
  216. 2130 K15$="O3B- >D-2C2"
  217. 2140 L15$="O4C E-"
  218. 2150 A16$="O5A-2>A-4A-4 G2C2"
  219. 2160 B16$="O5A-&A-2>A-4A-4 G2C4."
  220. 2170 C16$="O4D-D-D-D-D-D-D-D- CCCCCCCC"
  221. 2180 D16$="O4FFFFFFFF E-E-E-E-E-E-E-E-"
  222. 2190 E16$="O4A-A-A-A-A-A-A-A- GGGGGGGG"
  223. 2200 F16$="O3D-D-D-D-D-D-D-D- CCCCCCCC"
  224. 2210 J16$="O4D- C"
  225. 2220 K16$="O4F E-"
  226. 2230 L16$="O3A- G"
  227. 2240 A17$="O6F2E-2 <A-4A-4B-4>C4"
  228. 2250 B17$="O6F&F2E-2 <A-4A-4B-4>C"
  229. 2260 C17$="O4E-E-E-E-E-E-E-E- A-A-A-A-A-A-A-A-"
  230. 2270 D17$="O4FFFFFFFF CCCCCCCC"
  231. 2280 E17$="O4B-B-B-B-B-B-B-B- E-E-E-E-E-E-E-E-"
  232. 2290 F17$="O2B-B-B-B-B-B-B-B- A-A-A-A-A-A-A-A-"
  233. 2300 J17$="O4E- <A-"
  234. 2310 K17$="O4F C"
  235. 2320 L17$="O3B- >E-"
  236. 2330 A18$="O5F2>D-4C4 <B-4B-4A-4G4"
  237. 2340 B18$="O5F&F2>D-4C4 <B-4B-4A-4G"
  238. 2350 C18$="O4D-D-D-D-D-D-D-D- E-E-E-E-E-E-E-E-"
  239. 2360 D18$="O4FFFFFFFF GGGGGGGG"
  240. 2370 E18$="O4A-A-A-A-A-A-A-A- B-B-B-B-B-B-B-B-"
  241. 2380 F18$="O3D-D-D-D-D-D-D-D- <B-B-B-B-B-B-B-B-"
  242. 2390 J18$="O4D- E-"
  243. 2400 K18$="O4F <G"
  244. 2410 L18$="O3A- B-"
  245. 2420 A19$="O5A-1& A-2R2"
  246. 2430 B19$="O5A-&A-1& A-2R4."
  247. 2440 C19$="O4A-A-A-A-A-A-A-A- A-A-A-A-A-A-A-A-Q8"
  248. 2450 D19$="O5D-D-D-D-D-D-D-D- CCCCQ8C2"
  249. 2460 D19B$="O5D-D-D-D-<B-B-B-B- >CCCCQ8C2"
  250. 2470 E19$="O4E-E-E-E-E-E-E-E- E-E-E-E-E-E-E-E-Q8"
  251. 2480 F19$="O2A-A-A-A-A-A-A-A- A-A-A-A-A-A-A-A-"
  252. 2490 J19$="O3A- A-"
  253. 2500 K19$="O5D- C"
  254. 2510 L19$="O4E- E-"
  255. 2520 C20$="L2O4R4A-. R4E-."
  256. 2530 D20$="L2O4R4C. R4G."
  257. 2540 E20$="L2O4R4E-. <R4B-."
  258. 2550 F20$="O2A-A-A-A-A-A-A-A- >E-E-E-E-E-E-E-E-"
  259. 2560 M20$="@14U0V4L8O4R%L5A-%R5A-%L5A-R2 R%R5G%L5G%R5GR2"
  260. 2570 C21$="O4R4D-. <R4A-."
  261. 2580 D21$="O4R4F. R4C."
  262. 2590 E21$="O3R4A-. >R4E-."
  263. 2600 F21$="O3D-D-D-D-D-D-D-D- <A-A-A-A-A-A-A-A-"
  264. 2610 M21$="O4R%L5F%R5F%L5FR2 R%R5A-%L5A-%R5A-R2"
  265. 2620 M21B$="O4R%L5F%R5F%L5FR2 R%R5A-(]%L5A-%R5A-)3"
  266. 2630 F22$="O2((E-E->E-<E-))"
  267. 2640 G22$="CCCC CCCC"
  268. 2650 H22$="RERE REL8REEEL4"
  269. 2660 I22$="GGGGGGGG GGGGGGGG"
  270. 2670 F23$="O3D-D-D-D-D-D-D-D- CCCCCCCC"
  271. 2680 F24$="O2B-B-B-B-B-B-B-B- A-A-A-A-B-B-B-B-"
  272. 2690 F25$="O2B-B-B-B-B-B-B-B- E->E-<E-E-E->E-<E->E-"
  273. 2700 H25$="RERE REE8E8E8E8"
  274. 2710 PLAY A0$,B0$,C0$,D0$,E0$,F0$,G0$,H0$,I0$
  275. 2720 PLAY A1$,B1$,C1$,D1$,E1$,F1$,G1$,H1$,I1$
  276. 2730 PLAY A2$,A2$,C2$,D2$,E2$,F2$,G1$,H1$,I1$
  277. 2740 PLAY A1$,B1$,C1$,D1$,E1$,F1$,G1$,H1$,I1$
  278. 2750 PLAY A2$,A2$,C2$,D2$,E2$,F2$,G1$,H1$,I1$
  279. 2760 PLAY A1$,B1$,C1$,D1$,E1B$,F1$,G1$,H1$,I1$,,,,M1$
  280. 2770 PLAY A2$,A2$,C2$,D2$,E2B$,F2$,G1$,H1$,I1$,,,,M2$
  281. 2780 PLAY A1$,B1$,C1$,D1$,E1B$,F1$,G1$,H1$,I1$,,,,M1$
  282. 2790 PLAY A3$,A3$,C3$,D3$,E3$,F3$,G3$,H3$,I3$,,,,M3$
  283. 2800 PLAY A4$,B4$,C4$,D4$,E4$,F4$,G1$,H1$,I1$,J4$,K4$,L4$,M4$,N4$
  284. 2810 PLAY A5$,B5$,C5$,D5$,E5$,F5$,G1$,H1$,I1$,J5$,K5$,L5$,M5$,N5$
  285. 2820 PLAY A6$,B6$,C6$,D6$,E6$,F6$,G1$,H1$,I1$,J6$,K6$,L6$,M6$,N6$
  286. 2830 PLAY A7$,B7$,C7$,D7$,E7$,F7$,G1$,H1$,I1$,J7$,K7$,L7$,M7$,N7$
  287. 2840 PLAY A4$,B4$,C4$,D4$,E4$,F4$,G1$,H1$,I1$,J4$,K4$,L4$,M4$,N4$
  288. 2850 PLAY A5$,B5$,C5$,D5$,E5$,F5$,G1$,H1$,I1$,J5$,K5$,L5$,M5$,N5$
  289. 2860 PLAY A6$,B6$,C6$,D6$,E6$,F6$,G1$,H1$,I1$,J6$,K6$,L6$,M6$,N6$
  290. 2870 PLAY A7$,B7$,C7$,D7$,E7$,F7$,G1$,H1$,I1$,J7$,K7$,L7$,M7B$,N7$
  291. 2880 PLAY A4$,B4$,C4$,D4$,E4$,F4$,G1$,H1$,I1$,J4$,K4$,L4$,M4$,N4$
  292. 2890 PLAY A5$,B5$,C5$,D5$,E5$,F5$,G1$,H1$,I1$,J5$,K5$,L5$,M5$,N5$
  293. 2900 PLAY A6$,B6$,C6$,D6$,E6$,F6$,G1$,H1$,I1$,J6$,K6$,L6$,M6$,N6$
  294. 2910 PLAY A7$,B7$,C7$,D7$,E7$,F7$,G1$,H1$,I1$,J7$,K7$,L7$,M7$,N7$
  295. 2920 PLAY A4$,B4$,C4$,D4$,E4$,F4$,G1$,H1$,I1$,J4$,K4$,L4$,M4$,N4$
  296. 2930 PLAY A5$,B5$,C5$,D5$,E5$,F5$,G1$,H1$,I1$,J5$,K5$,L5$,M5$,N5$
  297. 2940 PLAY A6$,B6$,C6$,D6$,E6$,F6$,G1$,H1$,I1$,J6$,K6$,L6$,M6$,N6$
  298. 2950 PLAY A8$,B8$,C7$,D7$,E7$,F7$,G4$,H4$,I1$,J7$,K7$,L7$,M8$,N7$
  299. 2960 PLAY A9$,B9$,C9$,D9$,E9$,F9$,G1$,H1$,I1$,J9$,K9$,L9$
  300. 2970 PLAY A10$,B10$,C10$,D10$,E10$,F10$,G1$,H1$,I1$,J10$,K10$,L10$
  301. 2980 PLAY A11$,B11$,C11$,D11$,E11$,F11$,G1$,H1$,I1$,J11$,K11$,L11$
  302. 2990 PLAY A12$,B12$,C12$,D12$,E12$,F12$,G1$,H1$,I1$,J12$,K12$,L12$
  303. 3000 PLAY A13$,B13$,C13$,D13$,E13$,F13$,G4$,H4$,I1$,J13$,K13$,L13$
  304. 3010 PLAY A14$,B14$,C14$,D14$,E14$,F14$,G1$,H1$,I1$,J14$,K14$,L14$
  305. 3020 PLAY A15$,B15$,C15$,D15$,E15$,F15$,G1$,H1$,I1$,J15$,K15$,L15$
  306. 3030 PLAY A16$,B16$,C16$,D16$,E16$,F16$,G1$,H1$,I1$,J16$,K16$,L16$
  307. 3040 PLAY A17$,B17$,C17$,D17$,E17$,F17$,G1$,H1$,I1$,J17$,K17$,L17$
  308. 3050 PLAY A18$,B18$,C18$,D18$,E18$,F18$,G1$,H1$,I1$,J18$,K18$,L18$
  309. 3060 PLAY A19$,B19$,C19$,D19$,E19$,F19$,G1$,H1$,I1$,J19$,K19$,L19$
  310. 3070 PLAY A20$,B20$,C20$,D20$,E20$,F20$,G1$,H1$,I1$,J20$,K20$,L20$,M20$
  311. 3080 PLAY A21$,B21$,C21$,D21$,E21$,F21$,G1$,H1$,I1$,J21$,K21$,L21$,M21$
  312. 3090 PLAY A20$,B20$,C20$,D20$,E20$,F20$,G1$,H1$,I1$,J20$,K20$,L20$,M20$
  313. 3100 PLAY A21$,B21$,C21$,D21$,E21$,F21$,G4$,H4$,I1$,J21$,K21$,L21$,M21B$
  314. 3110 PLAY A4$,B4$,C4$,D4$,E4$,F4$,G1$,H1$,I1$,J4$,K4$,L4$,M4$,N4$
  315. 3120 PLAY A5$,B5$,C5$,D5$,E5$,F5$,G1$,H1$,I1$,J5$,K5$,L5$,M5$,N5$
  316. 3130 PLAY A6$,B6$,C6$,D6$,E6$,F6$,G1$,H1$,I1$,J6$,K6$,L6$,M6$,N6$
  317. 3140 PLAY A7$,B7$,C7$,D7$,E7$,F7$,G1$,H1$,I1$,J7$,K7$,L7$,M7$,N7$
  318. 3150 PLAY A4$,B4$,C4$,D4$,E4$,F4$,G1$,H1$,I1$,J4$,K4$,L4$,M4$,N4$
  319. 3160 PLAY A5$,B5$,C5$,D5$,E5$,F5$,G1$,H1$,I1$,J5$,K5$,L5$,M5$,N5$
  320. 3170 PLAY A6$,B6$,C6$,D6$,E6$,F6$,G1$,H1$,I1$,J6$,K6$,L6$,M6$,N6$
  321. 3180 PLAY A8$,B8$,C7$,D7$,E7$,F7$,G4$,H4$,I1$,J7$,K7$,L7$,M8$,N7$
  322. 3190 PLAY A9$,B9$,C9$,D9$,E9$,F9$,G1$,H1$,I1$,J9$,K9$,L9$
  323. 3200 PLAY A10$,B10$,C10$,D10$,E10$,F10$,G1$,H1$,I1$,J10$,K10$,L10$
  324. 3210 PLAY A11$,B11$,C11$,D11$,E11$,F11$,G1$,H1$,I1$,J11$,K11$,L11$
  325. 3220 PLAY A12$,B12$,C12$,D12$,E12$,F12$,G1$,H1$,I1$,J12$,K12$,L12$
  326. 3230 PLAY A13$,B13$,C13$,D13$,E13$,F13$,G1$,H1$,I1$,J13$,K13$,L13$
  327. 3240 '
  328. 3250 PLAY A22$,B22$,C22$,D22$,E22$,F22$,G22$,H22$,I22$,J22$,K22$,L22$,M22$
  329. 3260 '
  330. 3270 PLAY A14$,B14$,C14$,D14$,E14$,F14$,G1$,H1$,I1$,J14$,K14$,L14$
  331. 3280 PLAY A15$,B15$,C15$,D15$,E15$,F15$,G1$,H1$,I1$,J15$,K15$,L15$
  332. 3290 PLAY A16$,B16$,C16$,D16$,E16$,F16$,G1$,H1$,I1$,J16$,K16$,L16$
  333. 3300 PLAY A17$,B17$,C17$,D17$,E17$,F17$,G1$,H1$,I1$,J17$,K17$,L17$
  334. 3310 PLAY A18$,B18$,C18$,D18$,E18$,F18$,G1$,H1$,I1$,J18$,K18$,L18$
  335. 3320 PLAY A19$,B19$,C19$,D19$,E19$,F19$,G1$,H1$,I1$,J19$,K19$,L19$
  336. 3330 PLAY A23$,B23$,C23$,D23$,E23$,F23$,G1$,H1$,I1$,J23$,K23$,L23$,M23$
  337. 3340 PLAY A24$,B24$,C24$,D24$,E24$,F24$,G1$,H1$,I1$,J24$,K24$,L24$,M24$
  338. 3350 PLAY A23$,B23$,C23$,D23$,E23$,F23$,G1$,H1$,I1$,J23$,K23$,L23$,M23$
  339. 3360 PLAY A25$,B25$,C25$,D25$,E25$,F25$,G1$,H25$,I1$,J25$,K25$,L25$,M25$
  340. 3370 PLAY A14$,B14$,C14$,D14$,E14$,F14$,G1$,H1$,I1$,J14$,K14$,L14$
  341. 3380 PLAY A15$,B15$,C15$,D15$,E15$,F15$,G1$,H1$,I1$,J15$,K15$,L15$
  342. 3390 PLAY A16$,B16$,C16$,D16$,E16$,F16$,G1$,H1$,I1$,J16$,K16$,L16$
  343. 3400 PLAY A17$,B17$,C17$,D17$,E17$,F17$,G1$,H1$,I1$,J17$,K17$,L17$
  344. 3410 PLAY A18$,B18$,C18$,D18$,E18$,F18$,G1$,H1$,I1$,J18$,K18$,L18$
  345. 3420 BGM 0:PLAY A19$,B19$,C19$,D19B$,E19$,F19$,G1$,H1$,I1$,J19$,K19$,L19$
  346. 3450 FOR Y=0 TO 9
  347. 3460   FOR Y1=0 TO 230 STEP 10: LINE (0,Y+Y1)-STEP(319,0),PRESET:NEXT
  348. 3470 NEXT
  349. 5000 FOR WET=O TO 5000 : NEXT :NEW:END
  350. 10000 *TOP:GOSUB *PROP_INITIAL
  351. 10010 SCREEN@ 1:COLOR ,0
  352. 10020 COUNT=1:Y=100:X=155:X_SIZE=200:Y2=60:X2=170:X_SIZE2=200:CLS
  353. 10030 DIM TEL_BACK1%(INT((2*X_SIZE*17+1)/2))
  354. 10035 DIM TEL_BACK2%(INT((2*X_SIZE2*17+1)/2))
  355. 10040 LOAD@ "AIKO.TIF":RESTORE *STAFF:RETURN
  356. 10050 *PRINT_STAFF
  357. 10055 IF FLG=1 THEN *PRINT_STAFF2
  358. 10060 GET@A(X,Y)-(X+X_SIZE-1,Y+16),TEL_BACK1%
  359. 10070 READ P_F,PROP$
  360. 10075 IF P_F=1 THEN GET@A(X2,Y2)-(X2+X_SIZE2-1,Y2+16),TEL_BACK2%:PROP_X%=X2:PROP_Y%=Y2:GOSUB *PROP_PRINT:READ P_F,PROP$
  361. 10080 PROP_X%=X  :PROP_Y%=Y
  362. 10120 GOSUB *PROP_PRINT:FLG=1-FLG:IF COUNT<>11 THEN RETURN ELSE INTERVAL OFF:RETURN
  363. 10130 *PRINT_STAFF2
  364. 10140 FOR LOOP=1 TO 32
  365. 10150 PASTEL INT(2^(LOOP/4)) : PUT@A (X,Y)-(X+X_SIZE-1,Y+16),TEL_BACK1%,PASTEL
  366. 10155 IF P_F=2 THEN PUT@A (X2,Y2)-(X2+X_SIZE2-1,Y2+16),TEL_BACK2%,PASTEL
  367. 10160 NEXT LOOP
  368. 10170 FLG=1-FLG:COUNT=COUNT+1:RETURN
  369. 10180 *STAFF
  370. 10181 DATA 0,"ＳＴＡＦＦ"
  371. 10185 DATA 1,"Ｍｕｓｉｃ　ｂｙ"
  372. 10190 DATA 0,"Ｔｓｕｂａｍｅ Ｓｋ゛ｙ"
  373. 10200 DATA 0,"Ｗ．ＭｏＭｏ"
  374. 10210 DATA 0,"Ｋａｚｕｙａ Ｓｈｉｍａｄａ"
  375. 10220 DATA 2,"ＳＫＥＭＡＲＯ"
  376. 10225 DATA 1,"Ｅｎｄｉｎｇ　Ｂ．Ｇ．　ｂｙ"
  377. 10230 DATA 2,"Ｃｈｉｈｉｒｏ Ｓａｉｋａ"
  378. 10235 DATA 1,"Ａｓｓｉｓｔｅｄ　ｂｙ"
  379. 10240 DATA 0,"Ｐｏｌｉｃｙ Ｏｒｉｉ"
  380. 10260 DATA 2,"Ｈａｎａｙａ"
  381. 10265 DATA 1,"Ｐｒｏｄｕｃｅｄ　ｂｙ"
  382. 10270 DATA 2,"Ｓｈｏｇｏ Ｏｋａｍｏｔｏ"
  383. 10275 DATA 1,"Ｐｒｅｓｅｎｔｅｄ　ｂｙ"
  384. 10280 DATA 2,"Ｐｉｃｋｕｐ ＴＯＷＮＳ"
  385. 10285 DATA 1,""
  386. 10286 DATA 2,"Ｓｅｅ　ｙｏｕ　ａｇａｉｎ！"
  387. 10290 END
  388. 10300 '
  389. 10310 ' プロポーショナル表示ルーチン         "PROP.BAS"
  390. 10320 '
  391. 10330 '                                   作成 岡本正悟 (1991.06.09)
  392. 10340 '
  393. 10350 'GOSUB *PROP_INITIAL ←こいつを使用前に一度だけ実行しておく
  394. 10360 ' - 受渡しパラメータ ( []内はデフォルト値 *PROP_VAL_INI 参照 ) -
  395. 10370 'PROP_X%=ｘ座標 [-] :PROP_Y%=ｙ座標  [-] :PROP$=表示文字列
  396. 10380 'PROP0!=横倍率  [1] :PROP1!=縦倍率   [1] :PROP2%=パレット番号 [-]
  397. 10390 'PROP3%=フォント[0] :PROP4%=文字間隔 [0]
  398. 10400 'PROP5%=スイッチ (0=プロポーショナル,1=ノーマル) [0]
  399. 10410 'GOSUB *PROP_PRINT ←こいつで呼び出す
  400. 10420 ' - 復帰情報 -
  401. 10430 'PROP_RET%=文字列ドットスケールサイズ
  402. 10440 '
  403. 10450 *PROP_INITIAL
  404. 10460  PROP_HALF%=1         ' ( 0=半角データ未定義時,1=半角データ定義時 )
  405. 10470  PROP_MAX_BLOCK%=7    ' ( 定義データブロックの上限値 )
  406. 10480  DIM PROP_DAT%(PROP_HALF%*96+PROP_MAX_BLOCK%*48-1)
  407. 10490  PROP_TAD&=VARPTR(PROP_DAT%(0)):RESTORE *PROP_DATA
  408. 10500  FOR PROP_P%=0 TO PROP_HALF%*192+PROP_MAX_BLOCK%*96-1
  409. 10510    READ DAT$:POKE PROP_TAD&+PROP_P%,VAL("&H"+DAT$)
  410. 10520  NEXT
  411. 10530  GOSUB *PROP_VAL_INI
  412. 10540  RETURN
  413. 10550 *PROP_VAL_INI
  414. 10560  PROP0!=1:PROP1!=1:PROP2%=15:PROP3%=7:PROP4%=1:PROP5%=0
  415. 10570  RETURN
  416. 10580 *PROP_PRINT:IF PROP$="" THEN RETURN
  417. 10590  ON PROP5% GOTO *PROP_NORMAL
  418. 10600  PROP_STACK%=I% : PROP_RET%=PROP_X%
  419. 10610  FOR I%=1 TO KLEN(PROP$)
  420. 10620    PROP_CODE$=KMID$(PROP$,I%,1):PROP_CODE%=KTYPE(PROP$,I%)
  421. 10630    PROP_X1%=0:PROP_SIZE%=(8+PROP_CODE%*8)*PROP0!-1
  422. 10640    IF PROP_HALF%=1 AND PROP_CODE%=0 THEN                                       PROP_OFS%=ASC(PROP_CODE$)-&H20                                             :PROP_OFS%=PROP_OFS%-(PROP_OFS%\128)*32                                     :GOSUB *PROP_PRINT2
  423. 10650    IF PROP_CODE%=1 THEN PROP_OFS%=JIS(PROP_CODE$)                             :IF JIS(PROP_CODE$)<((PROP_MAX_BLOCK%-1)*256+&H217F) THEN                    PROP_OFS%=PROP_OFS%-&H2120:PROP_OFS%=PROP_OFS%-(PROP_OFS%\256)*160         :GOSUB *PROP_PRINT2
  424. 10660    PROP_X1%=PROP_X%-PROP_X1%
  425. 10670    SYMBOL(PROP_X1%,PROP_Y%),PROP_CODE$,PROP0!,PROP1!,[120,255,53],,,PROP3%
  426. 10680    PROP_X%=PROP_X%+PROP_SIZE%+PROP4%+1
  427. 10690  NEXT
  428. 10700  GOSUB *PROP_VAL_INI:I%=PROP_STACK% : PROP_RET%=PROP_X%-PROP_RET%
  429. 10710  RETURN
  430. 10720 *PROP_NORMAL
  431. 10730  SYMBOL(PROP_X%,PROP_Y%),PROP$,PROP0!,PROP1!,%PROP2%,,,PROP3%,PROP4%
  432. 10740  PROP_X%=(KLEN(PROP$,1)*8+KLEN(PROP$,2)*16)*PROP0!
  433. 10750  PROP_RET%=PROP_X%+KLEN(PROP$)*PROP4%
  434. 10760  RETURN
  435. 10770 *PROP_PRINT2
  436. 10780  PROP_DAT%=PEEK(PROP_TAD&+192*PROP_CODE%*PROP_HALF%+PROP_OFS%)
  437. 10790  PROP_X1%=(PROP_DAT%\16)*PROP0!:PROP_SIZE%=(PROP_DAT% MOD 16+1)*PROP0!
  438. 10800  RETURN
  439. 10810 *PROP_DATA
  440. 10820 ' 半角 英数記号
  441. 10830 DATA 04,23,06,06,07,06,07,23,23,13,07,15,22,15,14,07'CHR$(&H20-&H2F)
  442. 10840 DATA 06,15,06,06,06,06,06,06,06,06,14,13,06,14,06,06'CHR$(&H30-&H3F)
  443. 10850 DATA 07,06,06,06,06,06,06,06,06,23,06,06,06,07,06,06'CHR$(&H40-&H4F)
  444. 10860 DATA 06,06,06,06,07,06,07,07,07,07,06,23,07,23,15,06'CHR$(&H50-&H5F)
  445. 10870 DATA 23,06,06,06,06,06,06,06,06,23,14,06,23,07,06,06'CHR$(&H60-&H6F)
  446. 10880 DATA 06,06,15,06,06,06,07,07,06,06,06,23,31,13,06,07'CHR$(&H70-&H7F)
  447. 10890 ' 半角 仮名
  448. 10900 DATA 0F,14,24,04,15,15,06,06,06,15,15,15,06,06,15,15'CHR$(&HA0-&HAF)
  449. 10910 DATA 07,06,06,07,07,06,06,15,06,06,06,06,06,06,06,06'CHR$(&HB0-&HBF)
  450. 10920 DATA 06,07,07,07,06,07,07,07,07,14,07,06,06,07,07,06'CHR$(&HC0-&HCF)
  451. 10930 DATA 06,07,06,06,06,07,06,06,15,07,06,06,07,07,14,13'CHR$(&HD0-&HDF)
  452. 10940 DATA 07,07,07,07,07,07,07,07,07,07,07,07,07,07,07,07'CHR$(&HE0-&HEF)
  453. 10950 DATA 07,07,07,06,06,07,07,07,07,07,07,07,07,07,07,07'CHR$(&HF0-&HFF)
  454. 10960 ' 記号          ( データブロック１ )
  455. 10970 DATA 0F,08,06,06,03,03,48,46,46,39,55,07,05,55,55,38'(&H2120-&H212F)
  456. 10980 DATA 47,0F,0F,47,48,47,49,38,0F,0D,1C,0F,0F,0F,54,0F'(&H2130-&H213F)
  457. 10990 DATA 0F,0F,0F,0F,0F,0F,B4,04,87,07,87,07,96,06,96,06'(&H2140-&H214F)
  458. 11000 DATA 96,06,96,06,69,0A,87,07,78,08,96,06,0F,0F,0F,0F'(&H2150-&H215F)
  459. 11010 DATA 0F,0F,0F,0F,0F,0F,0F,0F,0F,0E,2B,06,04,07,1C,1D'(&H2160-&H216F)
  460. 11020 DATA 39,38,2B,0F,0F,3B,39,1E,47,0F,0F,0F,0F,0F,0F,0F'(&H2170-&H217F)
  461. 11030 ' 記号          ( データブロック２ )
  462. 11040 DATA 0F,0F,0F,0F,0F,0F,0F,0F,0F,0F,0F,0F,47,47,0F,0F'(&H2220-&H222F)
  463. 11050 DATA 1E,4B,2D,2D,1E,2D,2D,2D,2D,2D,2B,2B,2B,2B,2B,2B'(&H2230-&H223F)
  464. 11060 DATA 2B,2B,0F,0F,0F,0F,0F,0F,0F,0F,0F,0F,0F,0F,0F,0F'(&H2240-&H224F)
  465. 11070 DATA 0F,0F,0F,0F,0F,0F,0F,0F,0F,0F,0F,0F,2B,2B,1D,29'(&H2250-&H225F)
  466. 11080 DATA 2B,0F,0F,0F,0F,0F,0F,0F,0F,56,2B,0F,0F,0F,0F,0F'(&H2260-&H226F)
  467. 11090 DATA 0F,0F,1D,0F,39,46,2A,39,29,0F,0F,0F,0F,0F,0F,0F'(&H2270-&H227F)
  468. 11100 ' 英・数字      ( データブロック３ )
  469. 11110 DATA 0F,0F,0F,0F,0F,0F,0F,0F,0F,0F,0F,0F,0F,0F,0F,0F'(&H2320-&H232F)
  470. 11120 DATA 39,47,39,39,39,39,39,39,39,39,0F,0F,0F,0F,0F,0F'(&H2330-&H233F)
  471. 11130 DATA 0F,1D,2A,3A,2B,2B,2B,2B,2C,55,48,1D,2B,0F,1D,2B'(&H2340-&H234F)
  472. 11140 DATA 2A,2C,2B,39,2B,1D,1D,0F,2B,1D,2A,00,00,00,00,00'(&H2350-&H235F)
  473. 11150 DATA 00,47,48,47,38,47,46,39,48,63,54,39,63,1D,39,47'(&H2360-&H236F)
  474. 11160 DATA 48,38,57,47,55,3A,39,1D,39,39,38,00,0F,0F,0F,0F'(&H2370-&H237F)
  475. 11170 ' ひらがな      ( データブロック４ )
  476. 11180 DATA 0F,39,1C,39,1D,47,39,39,1D,39,1D,1E,1E,2A,2D,46'(&H2420-&H242F)
  477. 11190 DATA 49,1D,1E,2C,2C,2B,1E,3B,3B,1F,1F,1F,1F,1D,1E,1D'(&H2430-&H243F)
  478. 11200 DATA 1E,2C,2D,2A,0E,0F,0E,0E,2B,2C,1D,1D,1E,1D,1D,1D'(&H2440-&H244F)
  479. 11210 DATA 1E,1E,1D,1E,1E,0E,0E,0F,0F,0F,0F,1D,1E,1E,1B,1D'(&H2450-&H245F)
  480. 11220 DATA 1E,1D,2B,2A,0E,3A,1D,39,1C,3A,39,2B,1E,2B,2A,1D'(&H2460-&H246F)
  481. 11230 DATA 1D,1D,1D,1D,3C,0F,0F,0F,0F,0F,0F,0F,0F,0F,0F,0F'(&H2470-&H247F)
  482. 11240 ' カタカナ      ( データブロック５ )
  483. 11250 DATA 0F,39,2B,37,29,48,2A,39,1D,39,1C,1B,1E,1C,1E,2A'(&H2520-&H252F)
  484. 11260 DATA 2D,1C,1E,39,3C,1D,1E,3B,3B,2B,2D,1C,1D,39,1E,2A'(&H2530-&H253F)
  485. 11270 DATA 1E,1C,0F,39,2B,1E,1C,0F,56,59,1C,1D,1B,1C,18,1D'(&H2540-&H254F)
  486. 11280 DATA 1E,1E,39,3B,3C,2A,1E,1E,1D,1D,1D,2B,2C,2C,1C,47'(&H2550-&H255F)
  487. 11290 DATA 1D,28,1C,39,1C,39,1D,48,39,3A,47,1E,3B,3A,38,2A'(&H2560-&H256F)
  488. 11300 DATA 1C,1D,2A,3B,1E,39,2A,0F,0F,0F,0F,0F,0F,0F,0F,0F'(&H2570-&H257F)
  489. 11310 ' ギリシャ文字  ( データブロック６ )
  490. 11320 DATA 0F,1D,2A,2A,1D,2B,3A,2C,2B,55,1C,1D,0F,1D,2B,2B'(&H2620-&H262F)
  491. 11330 DATA 2B,2B,2B,2B,2B,2B,1D,1D,2B,0F,0F,0F,0F,0F,0F,0F'(&H2630-&H263F)
  492. 11340 DATA 0F,2B,39,3A,49,48,39,39,38,55,39,39,2A,48,39,47'(&H2640-&H264F)
  493. 11350 DATA 3A,38,3A,2A,38,39,39,39,2B,0F,0F,0F,0F,0F,0F,0F'(&H2650-&H265F)
  494. 11360 DATA 0F,0F,0F,0F,0F,0F,0F,0F,0F,0F,0F,0F,0F,0F,0F,0F'(&H2660-&H266F)
  495. 11370 DATA 0F,0F,0F,0F,0F,0F,0F,0F,0F,0F,0F,0F,0F,0F,0F,0F'(&H2670-&H267F)
  496. 11380 ' ロシア文字    ( データブロック７ )
  497. 11390 DATA 0F,2B,39,39,39,2B,3A,3A,1D,39,2B,2B,2B,1B,1D,2B'(&H2720-&H272F)
  498. 11400 DATA 2B,2B,39,2A,2B,2B,2B,2B,2B,2A,1D,1E,1C,1D,39,3A'(&H2730-&H273F)
  499. 11410 DATA 1C,2A,0F,0F,0F,0F,0F,0F,0F,0F,0F,0F,0F,0F,0F,0F'(&H2740-&H274F)
  500. 11420 DATA 0F,38,38,38,38,39,38,38,2B,38,39,39,39,2A,2B,39'(&H2750-&H275F)
  501. 11430 DATA 38,39,38,38,39,39,2B,39,3A,39,2B,2B,2A,2B,48,39'(&H2760-&H276F)
  502. 11440 DATA 2A,39,0F,0F,0F,0F,0F,0F,0F,0F,0F,0F,0F,0F,0F,0F'(&H2770-&H277F)
  503.